home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
National Lampoon's Blind Date
/
National Lampoon's Blind Date.iso
/
bd
/
clues1.mmm
/
00037_Script_37
< prev
next >
Wrap
Text File
|
1995-03-01
|
3KB
|
90 lines
on waitMovieOrPressed chan
repeat while the movieRate of sprite chan > 0
updateStage
if mouseDown() then
set the movieRate of sprite chan = 0
doLastFrame()
exit repeat
end if
end repeat
end waitMovieOrPressed
---------------------------------------------------
on doLastFrame
global returnFrame, returnMovie, nextTextClue
-- only wait if there is a text clue
if nextTextClue > 0 then
repeat while not mouseDown()
end repeat
end if
-- wait until they release the mouse
repeat while mouseDown()
nothing
end repeat
when mouseUp then dontPassEvent
go to frame returnFrame of movie returnMovie
end doLastFrame
---------------------------------------------------
on getClue
global hintReturn, nextTextClue, Drinks
if nextTextClue < 1 or nextTextClue > 2 then
set nextTextClue = 1
end if
if hintReturn >= "s01" and hintReturn <= "s13" then
set nextTextClue = 1
setClueText("s01-13")
else if hintReturn = "s41" or¼
(hintReturn >= "s44" and hintReturn <= "s51") then
if nextTextClue = 1 then
set nextTextClue = 2
setClueText("s41-51")
else
set nextTextClue = 1
setClueText("s41-51b")
end if
else if (hintReturn >= "s28" and hintReturn <= "s39") or¼
(hintReturn >= "s16" and hintReturn <= "s27") then
set nextTextClue = 1
setClueText("s16-39")
else if hintReturn >= "s55" and hintReturn <= "s62" then
if nextTextClue = 1 then
set nextTextClue = 2
setClueText("s55-62")
else
set nextTextClue = 1
setClueText("s55-62b")
end if
else if hintReturn >= "s63" and hintReturn <= "s67" then
set nextTextClue = 1
setClueText("s63-67")
else if hintReturn >= "s84" and hintReturn <= "s92" then
if nextTextClue = 1 then
set nextTextClue = 2
setClueText("s84-92")
else
set nextTextClue = 1
setClueText("s84-92b")
end if
else if hintReturn >= "s93" and hintReturn <= "s98" then
set nextTextClue = 1
setClueText("s93-98")
else if hintReturn >= "s77" and hintReturn <= "s83" then
if nextTextClue = 1 and Drinks < 3 then
set nextTextClue = 2
setClueText("s77-83")
else
set nextTextClue = 1
setClueText("s77-83b")
end if
else
set nextTextClue = 0
end if
end getClue
---------------------------------------------------
on setClueText clueCastName
puppetSprite 10, TRUE
set the castNum of sprite 10 to the number of cast clueCastName
updateStage
end setClueText